home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / daten / adm / termintool / termintool.lha / prefs / ADMscPrefs next >
Text File  |  1996-03-28  |  5KB  |  161 lines
  1. .K Version
  2. .Bra {
  3. .Ket }
  4. .Def Version= "$VER: ADMscPrefs V 0.8 (16.12.95) © Bernd Stange"
  5.  
  6. ;--------------------------------------------------------------------------
  7.  
  8. if not exists c:Askreq
  9. set dummy `requestchoice "Fehler:" "Bitte zuerst das Zusatzprogramm Askreq in das C:-Verzeichnis kopieren !" "OK"`
  10. quit
  11. endif
  12.  
  13. resident >NIL: C:Type PURE
  14. If exists "ENV:ADMscPrefs"
  15. setenv PfadVariable "ENV"
  16. else
  17. setenv PfadVariable "s"
  18. endif
  19. if not exists $pfadvariable:ADMscPrefs
  20. setenv PfadVariable "env"
  21. Setenv PfadADM "nicht gesetzt"
  22. Setenv PfadADMDaten "nicht gesetzt"
  23. Setenv PfadADMGebliste "nicht gesetzt"
  24. Setenv VLog "nicht gesetzt"
  25. Setenv Vorwarnung "nicht gesetzt"
  26. Setenv Checkaktuell "nicht gesetzt"
  27. else
  28.  
  29. if exists $PfadVariable:ADMscPrefs/PfadADM
  30. Setenv PfadADM `type $PfadVariable:ADMscPrefs/PfadADM `
  31. else
  32. Setenv PfadADM "nicht gesetzt"
  33. endif
  34. if exists $PfadVariable:ADMscPrefs/PfadADMDaten
  35. Setenv PfadADMDaten `type $PfadVariable:ADMscPrefs/PfadADMDaten `
  36. else
  37. Setenv PfadADMDaten "nicht gesetzt"
  38. endif
  39. if exists $PfadVariable:ADMscPrefs/PfadADMGebliste
  40. Setenv PfadADMGebliste `type $PfadVariable:ADMscPrefs/PfadADMGebliste `
  41. else
  42. Setenv PfadADMGebliste "nicht gesetzt"
  43. endif
  44. if exists $PfadVariable:ADMscPrefs/VLog
  45. Setenv VLog `type $PfadVariable:ADMscPrefs/VLog `
  46. else
  47. Setenv VLog "nicht gesetzt"
  48. endif
  49. if exists $PfadVariable:ADMscPrefs/Vorwarnung
  50. Setenv Vorwarnung `type $PfadVariable:ADMscPrefs/Vorwarnung `
  51. else
  52. Setenv Vorwarnung "nicht gesetzt"
  53. Endif
  54. if exists $PfadVariable:ADMscPrefs/Checkaktuell
  55. Setenv Checkaktuell `type $PfadVariable:ADMscPrefs/Checkaktuell `
  56. else
  57. Setenv Checkaktuell "nicht gesetzt"
  58. Endif
  59.  
  60.  
  61. ENDIF
  62.  
  63. Lab Start
  64.  
  65. set result `requestchoice "{Version} Aktuelle Einstellungen:" "1__ADM ====> $PfadADM*n2__ADMDaten ====> $PfadADMDaten*n3__Geb-Datei ====> $PfadADMGebliste*n4__VLog ====> $VLog*N5__Vorwarnung ====> $Vorwarnung*N6__Checkaktuell ====> $Checkaktuell" "1|2|3|4|5|6|Speichern|Abbruch"`
  66.  
  67. If "$result" eq "1"
  68. set dummy `RequestChoice "Hinweis" "Einfach nur den Adressmaster anwählen !" "OK"`
  69. Setenv PfadADM `requestfile TITLE="Bitte AddressMaster anwählen !"`
  70. skip start back
  71. endif
  72.  
  73. If "$result" eq "2"
  74. set dummy `RequestChoice "Hinweis" "Einfach nur die ADM-Datensatzdatei von ADM anwählen !" "OK"`
  75. Setenv PfadADMDaten `requestfile TITLE="Bitte ADMDaten anwählen !" FILE=Daten.ADM`
  76. skip start back
  77. endif
  78.  
  79. If "$result" eq "3"
  80. set dummy `RequestChoice "Hinweis" "Das wird die Datei,*nin der alle Geburtstage*nim benötigten Format gespeichert werden !" "OK"`
  81. Setenv PfadADMGebliste `requestfile TITLE="Bitte Pfad der Datei bestimmen !" FILE=Geburtstage.ASC`
  82. skip start back
  83. endif
  84.  
  85. If "$result" eq "4"
  86. set dummy `RequestChoice "Frage:" "Das Programm Voice-Log zum Anwählen*Neiner Telefonnummer verwenden ?" "Ja|Nein"`
  87. if $dummy eq "0"
  88. setenv VLog Nein
  89. skip start back
  90. else
  91. set dummy `RequestChoice "Hinweis" "Einfach nur das Programm Voice-Log anwählen !*NVoice-Log muß natürlich richtig konfiguriert sein." "OK"`
  92. Setenv VLog `requestfile TITLE="Bitte Voice-Log anwählen"`
  93. skip start back
  94. endif
  95. endif
  96.  
  97. If "$result" eq "5"
  98. set dummy `RequestChoice "Hinweis" "Hier bitte eingegeben,*Nwieviele Tage vor einem Termin oder Geburtstag*Nerinnert werden soll !" "OK"`
  99. setenv Vorwarnung `askreq H "Eingabe" M "Bitte die Vorwarntage eingeben" I`
  100. skip start back
  101. endif
  102.  
  103. If "$result" eq "6"
  104. set dummy `RequestChoice "Hinweis" "Hier bitte wählen,*Nob die Geb.-Liste immer auf Aktualität geprüft werden soll.*NWenn ja, dann wird sie auf Wunsch sofort erneuert.*NDazu dann bitte gleich den Pfad des ARexxScripts 'ADMGeblist.adm' wählen!" "Ja|Nein|Abbruch"`
  105. if "$dummy" eq "1"
  106. setenv Checkaktuell `requestfile FILE = ADMGebList.adm PATTERN = "#?.adm" TITLE="Bitte das Rexxcript ADMGebList.adm wählen !" POSITIVE = "Erneuere Liste"`
  107. Endif
  108. if "$dummy" eq "2"
  109. setenv Checkaktuell "NEIN"
  110. endif
  111. skip start back
  112. endif
  113.  
  114. If "$result" eq "7"
  115. set dummy `RequestChoice "Frage:" "Die Einstellungen von ADMscPrefs*Nin S: oder in ENVARC: abspeichern ?" "S:|ENVARC:|Abbruch"`
  116. if $dummy eq 1
  117. if exists envarc:ADMscPrefs
  118. delete >NIL: envarc:ADMscPrefs all
  119. delete >NIL: env:ADMscPrefs all
  120. endif
  121. setenv PFADvariable S
  122. endif
  123. if $dummy eq 2
  124. if exists s:ADMscPrefs
  125. delete >NIL: s:ADMscPrefs all
  126. endif
  127. setenv Pfadvariable ENVARC
  128. endif
  129. if $dummy eq 0
  130. skip Ende
  131. endif
  132. set dummy `RequestChoice "Hinweis:" "Speichere die Einstellungen unter *N*N$PFADvariable:ADMscPrefs ab !" "OK|Abbruch"`
  133. if $dummy eq 0
  134. skip ende
  135. endif
  136. makedir >NIL: $PfadVariable:ADMscPrefs
  137. echo "$PfadADM" >$PfadVariable:ADMscPrefs/PfadADM
  138. echo "$PfadADMDaten" >$PfadVariable:ADMscPrefs/PfadADMDaten
  139. echo "$PfadADMGebliste" >$PfadVariable:ADMscPrefs/PfadADMGebliste
  140. echo "$VLog" >$PfadVariable:ADMscPrefs/VLog
  141. echo "$Vorwarnung" >$PfadVariable:ADMscPrefs/Vorwarnung
  142. echo "$Checkaktuell" >$PfadVariable:ADMscPrefs/Checkaktuell
  143. If $PfadVariable:ADMscPrefs eq "ENVarc:ADMscPrefs"
  144. copy >NIL: "ENVarc:ADMscPrefs" "ENV:ADMscPrefs" all
  145. endif
  146. skip ende
  147. endif
  148.  
  149. If "$result" eq "0"
  150. lab ende
  151. unsetenv >NIL: PFADADM
  152. unsetenv >NIL: PFADADMDaten
  153. unsetenv >NIL: PFADADMGebliste
  154. unsetenv >NIL: VLog
  155. unsetenv >NIL: Vorwarnung
  156. unsetenv >NIL: PfadVariable
  157. unsetenv >NIL: Checkaktuell
  158. resident >NIL: Type remove
  159. quit
  160. endif
  161.